home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / contro2r / drv.bas < prev    next >
BASIC Source File  |  1999-04-03  |  573b  |  25 lines
  1. Attribute VB_Name = "drv"
  2. Sub drvc()
  3.     On Error GoTo err
  4.     Form1.Dir1.Path = Form1.Drive1.Drive
  5.     Exit Sub
  6. err:
  7.     Form1.Drive1.Drive = Form1.Dir1.Path
  8.     MsgBox " No Disk In Drive Or Not Available!", vbCritical, "dyr_workshop"
  9.     Exit Sub
  10. End Sub
  11.  
  12. Sub Dirc()
  13.     Form1.File1.Path = Form1.Dir1.Path
  14. End Sub
  15. Sub drvc2()
  16.     On Error GoTo err
  17.     Form4.Dir1.Path = Form4.Drive1.Drive
  18.     Exit Sub
  19. err:
  20.     Form4.Drive1.Drive = Form4.Dir1.Path
  21.     MsgBox " No Disk In Drive Or Not Available!", vbCritical, "dyr_workshop"
  22.     Exit Sub
  23. End Sub
  24.  
  25.